home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / searchba.prg < prev    next >
Encoding:
Text File  |  1994-06-20  |  467 b   |  29 lines
  1. PROCEDURE SEARCHVAR2
  2. PARAMETERS M.Lang
  3.  
  4. DEFINE WINDOW FOUND FROM 2,0 to 30,45 ;
  5.     FONT '',8 ;
  6.     STYLE 'N' ;
  7.     TITLE "QUERY RESULTS" ;
  8.     CLOSE ;
  9.     GROW ;
  10.     FLOAT ;
  11.     
  12.     CLOSE DATABASES
  13.     ERASE TEMP.DBF
  14.     USE ROSTER
  15.     
  16. set index to roster.cdx
  17.     
  18.  
  19.  
  20. Select Name, Unique, Lang1, Lang2, Lang3 From Roster ;
  21.     INTO TABLE TEMP WHERE Lang1 = M.Lang OR ;
  22.     Lang2 = M.Lang OR Lang3 = M.Lang 
  23.  
  24. USE TEMP
  25. ACTIVATE WINDOW FOUND
  26. browse IN WINDOW FOUND
  27. SHOW GETS
  28.  
  29. RETURN